home *** CD-ROM | disk | FTP | other *** search
/ Dimension 64 14 / Dimension_64_Nr.14_19xx_-_de_Side_B.d64 / rowly codemaker (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  10KB  |  174 lines
  1. 1000 rem##############################
  2. 1010 rem# rowly            codemaker #
  3. 1020 rem#----------------------------#
  4. 1030 rem# copyright 1987  by mr-soft #
  5. 1040 rem#----------------------------#
  6. 1050 rem#        ronald mayer        #
  7. 1060 rem#         thening 24         #
  8. 1070 rem#   a-4062 thening/austria   #
  9. 1080 rem##############################
  10. 1090 print"[147][129]":poke53281,0:poke53280,0
  11. 1100 print"creating..."
  12. 1110 print"graphic codes 1.....";
  13. 1120 s=0:fori=30720to30991:reada:s=s+a:pokei,a:next
  14. 1130 ifs<>19381thenprint"error":end
  15. 1140 print"ok"
  16. 1150 print"graphic codes 2.....";
  17. 1160 s=0:fori=31104to31615:reada:s=s+a:pokei,a:next
  18. 1170 ifs<>52570thenprint"error":end
  19. 1180 print"ok"
  20. 1190 print"graphic codes 3.....";
  21. 1200 s=0:fori=31744to31895:reada:s=s+a:pokei,a:next
  22. 1210 ifs<>29848thenprint"error":end
  23. 1220 print"ok"
  24. 1230 print"graphic codes 4.....";
  25. 1240 s=0:fori=32128to32767:reada:s=s+a:pokei,a:next
  26. 1250 ifs<>105448thenprint"error":end
  27. 1260 print"ok"
  28. 1270 print"machine codes 1.....";
  29. 1280 s=0:fori=29952to30719:reada:s=s+a:pokei,a:next
  30. 1290 ifs<>90404thenprint"error":end
  31. 1300 print"ok"
  32. 1310 print"saving 'rowly codes'"
  33. 1320 if peek(186)=8 then sys57812"@0:rowly codes",8
  34. 1321 if peek(186)=1 then sys57812"rowly codes",1
  35. 1330 poke193,0:poke194,117:poke174,0:poke175,128:sys62957
  36. 1340 end
  37. 1350 rem###############################
  38. 1360 rem##### 30720 30991 #############
  39. 1370 rem###############################
  40. 1380 data195,189,102,94,94,102,189,195,131,1,249,1,1,57,57,57,3,1,241,3,1
  41. 1390 data49,1,3,131,1,57,63,63,57,1,131,3,1,249,57,57,57,1,3,1,1,255,1,1,63
  42. 1400 data1,1,1,1,255,3,3,63,63,63,131,1,63,33,33,57,1,131,57,57,57,9,9,57
  43. 1410 data57,57,129,129,231,231,231,231,129,129,129,129,243,243,51,51,3,135
  44. 1420 data49,35,7,15,7,35,49,57,63,63,63,63,63,63,1,129,57,17,1,1,41,57,57
  45. 1430 data57,57,25,9,1,33,49,57,57,131,1,249,57,57,57,1,131,3,1,249,1,3,63
  46. 1440 data63,63,131,1,249,57,57,57,1,132,7,1,249,3,1,57,57,57,129,1,255,3,129
  47. 1450 data249,1,3,7,3,243,243,243,243,243,243,57,57,57,57,57,57,1,131,57,57
  48. 1460 data57,57,17,131,199,239,57,57,41,1,1,17,57,125,57,17,131,199,131,17
  49. 1470 data57,125,153,153,153,195,231,231,231,231,1,1,227,199,143,31,1,1,0,0
  50. 1480 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  51. 1490 data0,0,0,0,0,0,0,0,0,0,0,0,0,255,255,255,255,255,255,255,255
  52. 1500 rem###############################
  53. 1510 rem##### 31104 31591 #############
  54. 1520 rem###############################
  55. 1530 data131,1,57,57,57,57,1,131,207,143,143,207,207,207,135,135,3,1,241,195
  56. 1540 data143,31,1,1,3,1,249,131,131,249,1,3,63,63,51,51,1,1,243,243,1,1,63
  57. 1550 data3,1,241,1,3,129,1,63,3,1,57,1,131,1,1,241,227,199,199,199,199,131
  58. 1560 data1,57,131,1,57,1,131,131,1,57,1,129,249,1,3,0,0,0,0,0,0,0,0,0,0,0
  59. 1570 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  60. 1580 data0,0,0,0,0,0,52,52,52,52,0,0,171,189,189,189,189,189,189,213,60,60
  61. 1590 data235,235,189,189,149,85,172,172,187,183,183,183,156,92,170,169,189
  62. 1600 data189,215,215,60,60,58,57,237,237,237,237,53,53,0,0,0,85,170,170,255
  63. 1610 data255,170,170,170,85,85,0,0,0,0,85,170,255,170,170,85,0,27,27,27,27
  64. 1620 data27,27,27,27,164,164,164,164,164,164,164,164,255,255,234,234,229,230
  65. 1630 data230,230,254,253,169,169,121,185,185,185,230,230,230,231,234,234,213
  66. 1640 data149,185,185,185,249,169,169,85,85,254,233,233,149,254,233,233,149,5,25
  67. 1650 data26,107,110,107,111,107,80,84,148,165,149,165,165,165,107,106,90,106
  68. 1660 data89,21,21,5,149,165,149,101,149,84,84,80,255,255,170,170,85,170,170,170
  69. 1670 data170,170,170,255,170,170,85,85,230,230,230,230,230,230,230,230,185
  70. 1680 data185,185,185,185,185,185,185,170,170,170,170,170,170,170,170,185
  71. 1690 data185,185,185,185,185,185,185,221,221,221,221,221,221,221,221,222,222
  72. 1700 data222,222,222,222,222,222,218,218,218,218,218,218,218,218,234,234,234
  73. 1710 data234,234,234,234,234,170,170,130,130,130,130,170,170,170,170,190,190
  74. 1720 data190,190,170,170,231,231,231,231,231,231,231,231,0,0,0,0,0,0,0,0,0,0,0
  75. 1730 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  76. 1740 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,5,85,96,6,170,176
  77. 1750 data6,170,176,7,255,240,5,85,112,6,170,176,6,170,176,11,255,240,0
  78. 1760 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  79. 1770 rem###############################
  80. 1780 rem##### 31744 31895 #############
  81. 1790 rem###############################
  82. 1800 data175,186,234,233,233,235,234,154,250,174,169,105,149,250,174,169,165
  83. 1810 data254,235,234,234,234,154,165,105,233,233,169,169,169,166,90,175,186
  84. 1820 data234,233,233,233,233,233,250,174,169,105,85,170,170,170,233,233,235
  85. 1830 data234,234,234,154,165,170,253,233,169,169,169,166,90,250,174,169,105
  86. 1840 data233,233,233,233,233,233,233,169,169,169,167,90,255,234,234,233,233
  87. 1850 data235,234,234,250,174,169,105,233,233,169,166,233,233,233,233,233,233
  88. 1860 data233,85,105,233,233,233,233,233,233,85,255,169,169,85,170,250,154
  89. 1870 data154,233,233,235,234,234,234,234,85,90,170,255,169,169,169,169,85
  90. 1880 data250,238,235,234,234,234,233,233,175,185,233,169,169,169,105,233
  91. 1890 rem###############################
  92. 1900 rem##### 32128 32767 #############
  93. 1910 rem###############################
  94. 1920 data175,186,234,233,233,233,233,233,171,174,186,186,181,171,171,171,175
  95. 1930 data186,234,233,85,171,171,174,175,186,234,233,85,171,171,171,255,233
  96. 1940 data233,233,233,233,233,186,255,234,234,233,233,235,234,186,175,186,234
  97. 1950 data233,233,235,234,234,255,234,234,85,170,171,171,174,175,186,234,233
  98. 1960 data233,235,234,186,175,186,234,233,233,235,234,186,250,174,169,105,233
  99. 1970 data233,233,233,254,166,166,166,166,166,166,166,250,174,169,105,233,169
  100. 1980 data166,166,250,174,169,105,233,233,169,166,255,233,233,233,233,233,169
  101. 1990 data169,255,169,169,85,170,250,174,171,250,174,169,105,85,250,174,171
  102. 2000 data255,169,169,105,233,169,166,166,250,174,169,105,233,233,169,166,250
  103. 2010 data174,169,105,233,233,169,169,233,233,235,234,234,234,154,165,171,171
  104. 2020 data171,171,171,171,171,169,174,186,186,234,234,234,234,85,169,255,234
  105. 2030 data234,234,234,186,165,165,170,170,170,170,170,170,170,165,255,234,234
  106. 2040 data234,234,186,165,233,233,235,234,234,234,186,165,174,174,174,174,174
  107. 2050 data174,174,165,233,233,235,234,234,234,186,165,165,255,235,234,234,234
  108. 2060 data186,165,233,233,233,169,169,169,166,90,166,166,166,166,166,166,166
  109. 2070 data86,154,154,127,169,169,169,169,85,105,233,233,169,169,169,166,90
  110. 2080 data233,233,233,233,233,233,233,85,105,233,233,169,169,169,166,90,105
  111. 2090 data233,233,169,169,169,166,90,154,154,154,154,154,154,154,90,105,233
  112. 2100 data233,169,169,169,166,90,105,233,233,169,169,169,166,90,85,85,64,85
  113. 2110 data85,80,106,170,148,106,170,165,106,170,171,106,255,171,106,253,171
  114. 2120 data106,213,171,106,85,171,106,170,171,106,170,175,106,170,188,106,255
  115. 2130 data175,106,253,171,106,193,171,106,193,171,106,193,171,106,193,171,106
  116. 2140 data193,171,127,193,255,255,195,255,0,1,85,64,5,85,80,22,170,148,90,170
  117. 2150 data165,106,170,171,106,255,171,106,253,171,106,193,171,106,193,171,106
  118. 2160 data193,171,106,193,171,106,193,171,106,193,171,106,193,171,106,213,171
  119. 2170 data106,85,171,106,170,171,250,170,175,62,170,188,15,255,240,3,255,192
  120. 2180 data0,85,65,85,85,193,87,106,193,171,106,193,171,106,193,171,106,193
  121. 2190 data171,106,193,171,106,193,171,106,193,171,106,193,171,106,193,171,106
  122. 2200 data193,171,106,193,171,106,221,171,106,221,171,106,105,171,106,170,171
  123. 2210 data106,170,171,106,190,171,255,255,255,63,195,252,0,85,64,0,85,192,0
  124. 2220 data106,192,0,106,192,0,106,192,0,106,192,0,106,192,0,106,192,0,106,192
  125. 2230 data0,106,192,0,106,192,0,106,192,0,106,192,0,106,192,0,106,213,85,106
  126. 2240 data85,87,106,170,171,106,170,171,106,170,171,127,255,255,255,255,255
  127. 2250 data0,85,65,85,85,193,87,106,193,171,106,193,171,106,193,171,106,193
  128. 2260 data171,106,193,171,106,213,171,106,85,171,106,170,171,106,170,171,106
  129. 2270 data170,171,127,234,255,63,106,252,0,106,192,0,106,192,0,106,192,0,106
  130. 2280 data192,0,106,192,0,127,192,0,255,192,0
  131. 2290 rem###############################
  132. 2300 rem##### 29952 30719 #############
  133. 2310 rem###############################
  134. 2320 data76,18,117,76,99,119,76,0,119,76,51,119,76,147,119,76,169,119,160
  135. 2330 data0,162,34,169,67,153,32,203,200,138,153,32,203,200,232,192,10,208
  136. 2340 data240,169,10,141,132,3,169,38,162,67,133,3,134,4,169,15,141,24,212
  137. 2350 data96,162,0,160,2,185,32,203,157,32,203,204,132,3,240,5,200,232,76,61
  138. 2360 data117,165,4,174,132,3,157,30,203,165,3,157,31,203,96,173,133,3,208
  139. 2370 data1,96,172,133,3,177,3,201,70,144,1,96,201,64,208,19,238,139,3,173
  140. 2380 data138,3,205,139,3,208,5,169,3,141,134,3,76,140,117,201,32,240,126,169
  141. 2390 data1,141,134,3,96,160,41,169,65,145,3,174,133,3,224,1,208,19,169,66
  142. 2400 data141,135,3,56,165,3,233,40,133,3,176,2,198,4,76,234,117,224,42,208
  143. 2410 data19,169,67,141,135,3,166,3,232,134,3,224,0,208,2,230,4,76,234,117
  144. 2420 data224,81,208,19,169,68,141,135,3,165,3,24,105,40,133,3,144,2,230,4
  145. 2430 data76,234,117,169,69,141,135,3,166,3,202,134,3,224,255,208,2,198,4,32
  146. 2440 data0,119,165,4,174,132,3,157,32,203,232,165,3,157,32,203,238,132,3,238
  147. 2450 data132,3,76,136,118,160,41,169,65,145,3,174,133,3,224,40,240,11,224
  148. 2460 data42,240,29,224,1,240,47,76,94,118,32,116,118,166,3,202,224,255,208
  149. 2470 data2,198,4,134,3,169,69,141,135,3,76,133,118,32,116,118,166,3,232,224
  150. 2480 data0,208,2,230,4,134,3,169,67,141,135,3,76,133,118,32,116,118,165,3
  151. 2490 data56,233,40,176,2,198,4,133,3,169,66,141,135,3,76,133,118,32,116,118
  152. 2500 data165,3,24,105,40,144,2,230,4,133,3,169,68,141,135,3,76,133,118,173
  153. 2510 data32,203,133,255,173,33,203,133,254,169,32,160,41,145,254,96,32,57
  154. 2520 data117,160,41,173,135,3,145,3,24,165,4,105,152,133,255,165,3,133,254
  155. 2530 data169,9,160,41,145,254,96,174,133,3,224,81,240,18,173,0,220,41,1,208
  156. 2540 data11,160,1,177,3,201,70,176,3,76,252,118,224,40,240,18,173,0,220,41
  157. 2550 data8,208,11,160,42,177,3,201,70,176,3,76,252,118,224,1,240,18,173,0
  158. 2560 data220,41,2,208,11,160,81,177,3,201,70,176,3,76,252,118,224,42,240,21
  159. 2570 data173,0,220,41,4,208,14,160,40,177,3,201,70,176,6,76,252,118,140,133
  160. 2580 data3,96,32,190,119,162,8,189,53,64,201,195,208,26,169,186,157,53,64
  161. 2590 data169,176,157,52,64,169,206,157,93,64,169,196,157,92,64,202,202,224
  162. 2600 data255,208,223,254,52,64,254,53,64,254,93,64,254,92,64,96,162,2,189
  163. 2610 data76,64,201,195,208,26,169,186,157,76,64,169,176,157,75,64,169,206
  164. 2620 data157,116,64,169,196,157,115,64,202,202,224,255,208,223,254,75,64,254
  165. 2630 data76,64,254,116,64,254,115,64,96,162,0,172,136,3,202,208,253,32,217
  166. 2640 data119,136,208,247,32,161,118,32,91,117,32,133,119,173,134,3,240,228
  167. 2650 data169,0,141,1,212,96,173,137,3,240,4,206,137,3,96,169,10,141,137,3
  168. 2660 data162,20,189,170,67,201,94,240,4,254,170,67,96,202,16,242,169,2,141
  169. 2670 data134,3,96,162,0,189,170,67,201,90,240,6,222,170,67,76,169,119,232
  170. 2680 data224,21,208,238,96,173,140,3,240,1,96,169,1,141,140,3,169,50,141,141
  171. 2690 data3,169,33,141,4,212,169,240,141,6,212,96,173,140,3,208,1,96,173,141
  172. 2700 data3,208,11,169,0,141,140,3,169,32,141,4,212,96,141,1,212,206,141,3
  173. 2710 data96,255,255,255,255,255,255,255,255,255,255
  174.